home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / InsideBa1994 / InsideBasic-94 / IB 94 / LongToDollar / FN Long2Dollar.BAS
BASIC Source File  |  1993-10-11  |  321b  |  25 lines
  1. DIM 25 gMask$
  2. END GLOBALS
  3.  
  4. gMask$ = "$ ###,###,###,###.##"
  5.  
  6. LOCAL FN dollar$(p&)
  7.   DIM 25 d$
  8.   d! = p&\100
  9.   d$ = USING gMask$;d!
  10. END FN = d$
  11.  
  12. "Demo"
  13. INPUT "Enter pennies: ";p&
  14. d$ = FN dollar$(p&)
  15. PRINT "Dollars: ";d$
  16. PRINT
  17. PRINT "Press RETURN to quit."
  18.  
  19. DO
  20.   k$ = INKEY$
  21. UNTIL LEN(k$)
  22. IF k$ <> CHR$(13) THEN "Demo"
  23. END
  24.  
  25.